home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / softwareupdate / system / arexx_for_beginners / articles_01-10 / testprogram.guide (.txt) < prev   
Amigaguide Document  |  1996-10-25  |  336b  |  8 lines
  1. /* A test ARexx Program for Multiview/Amigaguide */
  2. CALL CLOSE('STDOUT')
  3. CALL OPEN('STDOUT','CON:50/60/510/70/TEST WINDOW FOR MULTIVIEW AREXX PROGRAM')
  4. SAY 'a'x||' This is an ARexx program launched from Multiview/Amigaguide'
  5. SAY 'a'x'        This window should  go away in 4 seconds.'
  6. DO WHILE TIME('E') < 4
  7. CLOSE('STDOUT')
  8.